home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD81137242000.psc / Projetos Visual Basic / VBInsideControls / TitleBanner / BasDrawEdge.bas next >
Encoding:
BASIC Source File  |  2000-07-25  |  2.7 KB  |  73 lines
  1. Attribute VB_Name = "BasDrawEdge"
  2. Option Explicit
  3.  
  4. '*******************************************************************
  5. ' DrawEdge.bas - Contains API declarations and constants for the
  6. '                DrawEdge function.
  7. '*******************************************************************
  8.  
  9. 'DrawText constants
  10. Public Const DT_CENTER = &H1
  11. Public Const DT_WORDBREAK = &H10
  12. Public Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hDC As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long, ByVal lpDrawTextParams As Any) As Long
  13. Public Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  14.  
  15. 'DrawEdge constants
  16. Public Type RECT
  17.     Left As Long
  18.     Top As Long
  19.     Right As Long
  20.     Bottom As Long
  21. End Type
  22.  
  23.  
  24. Public Const BDR_RAISEDOUTER = &H1
  25. Public Const BDR_SUNKENOUTER = &H2
  26. Public Const BDR_RAISEDINNER = &H4
  27. Public Const BDR_SUNKENINNER = &H8
  28.  
  29. Public Const BDR_OUTER = &H3
  30. Public Const BDR_INNER = &HC
  31. Public Const BDR_RAISED = &H5
  32. Public Const BDR_SUNKEN = &HA
  33.  
  34. Public Const EDGE_RAISED = (BDR_RAISEDOUTER Or BDR_RAISEDINNER)
  35. Public Const EDGE_SUNKEN = (BDR_SUNKENOUTER Or BDR_SUNKENINNER)
  36. Public Const EDGE_ETCHED = (BDR_SUNKENOUTER Or BDR_RAISEDINNER)
  37. Public Const EDGE_BUMP = (BDR_RAISEDOUTER Or BDR_SUNKENINNER)
  38. Public Const EDGE_RAISED2 = (BDR_SUNKENOUTER Or BDR_SUNKENINNER)
  39.  
  40. Public Const BF_LEFT = &H1
  41. Public Const BF_TOP = &H2
  42. Public Const BF_RIGHT = &H4
  43. Public Const BF_BOTTOM = &H8
  44.  
  45. Public Const BF_TOPLEFT = (BF_TOP Or BF_LEFT)
  46. Public Const BF_TOPRIGHT = (BF_TOP Or BF_RIGHT)
  47. Public Const BF_BOTTOMLEFT = (BF_BOTTOM Or BF_LEFT)
  48. Public Const BF_BOTTOMRIGHT = (BF_BOTTOM Or BF_RIGHT)
  49. Public Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)
  50.  
  51. Public Const BF_DIAGONAL = &H10
  52.  
  53. ' For diagonal lines, the BF_RECT flags specify the end point of
  54. ' the vector bounded by the rectangle parameter.
  55. Public Const BF_DIAGONAL_ENDTOPRIGHT = (BF_DIAGONAL Or BF_TOP _
  56.         Or BF_RIGHT)
  57. Public Const BF_DIAGONAL_ENDTOPLEFT = (BF_DIAGONAL Or BF_TOP _
  58.         Or BF_LEFT)
  59. Public Const BF_DIAGONAL_ENDBOTTOMLEFT = (BF_DIAGONAL Or BF_BOTTOM _
  60.         Or BF_LEFT)
  61. Public Const BF_DIAGONAL_ENDBOTTOMRIGHT = (BF_DIAGONAL Or BF_BOTTOM _
  62.         Or BF_RIGHT)
  63.  
  64. Public Const BF_MIDDLE = &H800    ' Fill in the middle.
  65. Public Const BF_SOFT = &H1000     ' Use for softer buttons.
  66. Public Const BF_ADJUST = &H2000   ' Calculate the space left over.
  67. Public Const BF_FLAT = &H4000     ' For flat rather than 3-D borders.
  68. Public Const BF_MONO = &H8000     ' For monochrome borders.
  69.  
  70. Public Declare Function DrawEdge Lib "user32" (ByVal hDC As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Boolean
  71.  
  72.  
  73.